/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_05 / pointers / setpointer

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 53 | 65 74 50 6f 69 6e 74 65 |..... >S|etPointe|
|00000010| 72 0d 00 14 2c f4 20 50 | 72 6f 67 72 61 6d 20 66 |r...,. P|rogram f|
|00000020| 6f 72 20 73 65 74 74 69 | 6e 67 20 75 70 20 61 20 |or setti|ng up a |
|00000030| 6d 6f 75 73 65 20 70 6f | 69 6e 74 65 72 0d 00 1e |mouse po|inter...|
|00000040| 40 f4 20 4f 72 69 67 69 | 6e 61 6c 20 70 72 6f 67 |@. Origi|nal prog|
|00000050| 72 61 6d 20 62 79 20 4a | 20 53 68 69 70 70 2e 20 |ram by J| Shipp. |
|00000060| 4e 65 77 20 76 65 72 73 | 69 6f 6e 20 62 79 20 4b |New vers|ion by K|
|00000070| 65 69 74 68 20 4d 63 41 | 6c 70 69 6e 65 0d 00 28 |eith McA|lpine..(|
|00000080| 05 20 0d 00 32 41 64 65 | 66 6e 3d 30 3a 62 6c 6b |. ..2Ade|fn=0:blk|
|00000090| 70 74 72 3d 31 3a 74 62 | 6c 70 74 72 3d 32 3a 69 |ptr=1:tb|lptr=2:i|
|000000a0| 6e 64 65 78 3d 33 3a 73 | 70 3d 31 33 3a 6c 69 6e |ndex=3:s|p=13:lin|
|000000b0| 6b 3d 31 34 3a 44 65 66 | 70 6f 69 6e 74 65 72 3d |k=14:Def|pointer=|
|000000c0| 26 31 35 0d 00 3c 0e de | 20 63 6f 64 65 20 34 30 |&15..<..| code 40|
|000000d0| 30 0d 00 46 11 e3 20 70 | 61 73 73 25 3d 30 20 b8 |0..F.. p|ass%=0 .|
|000000e0| 20 32 0d 00 50 0b 50 25 | 3d 63 6f 64 65 0d 00 5a | 2..P.P%|=code..Z|
|000000f0| 0e 5b 4f 50 54 20 70 61 | 73 73 25 0d 00 64 16 73 |.[OPT pa|ss%..d.s|
|00000100| 74 6d 66 64 20 28 73 70 | 29 21 2c 7b 6c 69 6e 6b |tmfd (sp|)!,{link|
|00000110| 7d 0d 00 6e 18 6d 6f 76 | 20 64 65 66 6e 2c 23 44 |}..n.mov| defn,#D|
|00000120| 65 66 70 6f 69 6e 74 65 | 72 0d 00 78 18 61 64 72 |efpointe|r..x.adr|
|00000130| 20 62 6c 6b 70 74 72 2c | 70 61 72 6d 42 6c 6f 63 | blkptr,|parmBloc|
|00000140| 6b 0d 00 82 1b 61 64 72 | 20 74 62 6c 70 74 72 2c |k....adr| tblptr,|
|00000150| 70 61 72 6d 42 6c 6f 63 | 6b 2b 31 39 0d 00 8c 17 |parmBloc|k+19....|
|00000160| 61 64 64 20 69 6e 64 65 | 78 2c 62 6c 6b 70 74 72 |add inde|x,blkptr|
|00000170| 2c 23 35 0d 00 96 09 2e | 6c 6f 6f 70 0d 00 a0 1b |,#5.....|loop....|
|00000180| 73 74 72 62 20 74 62 6c | 70 74 72 2c 5b 69 6e 64 |strb tbl|ptr,[ind|
|00000190| 65 78 2c 23 31 5d 21 0d | 00 aa 1d 6d 6f 76 73 20 |ex,#1]!.|...movs |
|000001a0| 74 62 6c 70 74 72 2c 74 | 62 6c 70 74 72 2c 6c 73 |tblptr,t|blptr,ls|
|000001b0| 72 20 23 38 0d 00 b4 0c | 62 6e 65 20 6c 6f 6f 70 |r #8....|bne loop|
|000001c0| 0d 00 be 11 73 77 69 20 | 22 4f 53 5f 57 6f 72 64 |....swi |"OS_Word|
|000001d0| 22 0d 00 c8 14 6c 64 6d | 66 64 20 28 73 70 29 21 |"....ldm|fd (sp)!|
|000001e0| 2c 7b 70 63 7d 0d 00 d2 | 0e 2e 70 61 72 6d 42 6c |,{pc}...|..parmBl|
|000001f0| 6f 63 6b 0d 00 dc 05 5d | 0d 00 e6 05 ed 0d 00 f0 |ock....]|........|
|00000200| 44 ff 28 22 4c 4f 41 44 | 20 66 69 6c 65 6e 61 6d |D.("LOAD| filenam|
|00000210| 65 20 22 2b c3 7e 70 61 | 72 6d 42 6c 6f 63 6b 29 |e "+.~pa|rmBlock)|
|00000220| 20 3a f4 20 63 68 61 6e | 67 65 20 27 66 69 6c 65 | :. chan|ge 'file|
|00000230| 6e 61 6d 65 27 20 74 6f | 20 6f 77 6e 20 6e 61 6d |name' to| own nam|
|00000240| 65 0d 00 fa 0a d6 20 63 | 6f 64 65 0d 01 04 08 eb |e..... c|ode.....|
|00000250| 39 3a 87 0d 01 0e 0c 2a | 50 4f 49 4e 54 45 52 0d |9:.....*|POINTER.|
|00000260| 01 18 31 c8 97 20 fb 20 | 31 2c 70 61 72 6d 42 6c |..1.. . |1,parmBl|
|00000270| 6f 63 6b 3f 31 30 2c 70 | 61 72 6d 42 6c 6f 63 6b |ock?10,p|armBlock|
|00000280| 3f 31 31 2c 70 61 72 6d | 42 6c 6f 63 6b 3f 31 32 |?11,parm|Block?12|
|00000290| 0d 01 22 31 c8 97 20 fb | 20 32 2c 70 61 72 6d 42 |.."1.. .| 2,parmB|
|000002a0| 6c 6f 63 6b 3f 31 33 2c | 70 61 72 6d 42 6c 6f 63 |lock?13,|parmBloc|
|000002b0| 6b 3f 31 34 2c 70 61 72 | 6d 42 6c 6f 63 6b 3f 31 |k?14,par|mBlock?1|
|000002c0| 35 0d 01 2c 31 c8 97 20 | fb 20 33 2c 70 61 72 6d |5..,1.. |. 3,parm|
|000002d0| 42 6c 6f 63 6b 3f 31 36 | 2c 70 61 72 6d 42 6c 6f |Block?16|,parmBlo|
|000002e0| 63 6b 3f 31 37 2c 70 61 | 72 6d 42 6c 6f 63 6b 3f |ck?17,pa|rmBlock?|
|000002f0| 31 38 0d 01 36 0a c8 97 | 20 ee 20 32 0d 01 40 22 |18..6...| . 2..@"|
|00000300| f5 3a f5 3a c8 97 20 58 | 2c 59 2c 42 3a fd 20 42 |.:.:.. X|,Y,B:. B|
|00000310| 3c 3e 30 3a c8 92 20 58 | 2c 59 3a fd 20 30 0d ff |<>0:.. X|,Y:. 0..|
+--------+-------------------------+-------------------------+--------+--------+